home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / raytrace / dkb / dkbutdoc.zoo / anim1.dat < prev    next >
Encoding:
Text File  |  1991-06-09  |  1.9 KB  |  67 lines
  1. ITERATIONS = 10
  2. RULES:
  3.     %1 = 0  $ -10       { Moves left hemisphere left       }
  4.     %2 = 0  $  10       { Moves right hemisphere right     }
  5.     %3 = 30 $  1        { Increases radius of inner sphere }
  6.     %4 = 0  $  0.1      { Increases GREEN on inner sphere  }
  7.     %5 = 1  $  -0.1     { Decreases BLUE on inner sphere   }
  8. END_RULES:
  9.  
  10. SKELETON:
  11.  
  12.     INCLUDE "shapes.dat"
  13.     INCLUDE "colors.dat"
  14.     INCLUDE "textures.dat"
  15.  
  16.     VIEW_POINT
  17.        LOCATION <0.0  0.0  -100.0>
  18.        DIRECTION <0.0 0.0  1.0>
  19.        UP  <0.0  1.0  0.0>
  20.        RIGHT <1.33333 0.0 0.0>
  21.        LOOK_AT <0.0 0.0 0.0>
  22.     END_VIEW_POINT
  23.  
  24.     { Light behind viewer postion (pseudo-ambient light) }
  25.     OBJECT
  26.        SPHERE <0.0  0.0  0.0>  2.0 END_SPHERE
  27.        TRANSLATE <2.0  2.0  -150.0>
  28.        TEXTURE
  29.            COLOUR White
  30.            AMBIENT 1.0
  31.            DIFFUSE 0.0
  32.        END_TEXTURE
  33.        LIGHT_SOURCE
  34.        COLOUR White
  35.     END_OBJECT
  36.  
  37.     OBJECT
  38.         INTERSECTION { Left hemisphere }
  39.             SPHERE <0.0 0.0 0.0> 40.0 END_SPHERE
  40.             SPHERE <0.0 0.0 0.0> 38.0 INVERSE END_SPHERE
  41.             PLANE <1.0 0.0 0.0> 0.0 END_PLANE
  42.             TRANSLATE <%1  0.0 0.0> { Range 0 -> -100 Step 10 }
  43.         END_INTERSECTION
  44.         TEXTURE
  45.             COLOR Green
  46.         END_TEXTURE
  47.     END_OBJECT
  48.     OBJECT
  49.         INTERSECTION { Right hemisphere }
  50.             SPHERE <0.0 0.0 0.0> 40.0 END_SPHERE
  51.             SPHERE <0.0 0.0 0.0> 38.0 INVERSE END_SPHERE
  52.             PLANE <-1.0 0.0 0.0> 0.0 END_PLANE
  53.             TRANSLATE <%2 0.0 0.0> { Range 0 -> +100 Step 10 }
  54.         END_INTERSECTION
  55.         TEXTURE
  56.             COLOR Green   { Stays the same }
  57.         END_TEXTURE
  58.     END_OBJECT
  59.  
  60.     OBJECT    { Inner sphere }
  61.         SPHERE <0.0 0.0 0.0> %3 END_SPHERE    { Radius range 30 -> 40 Step 1 }
  62.         TEXTURE
  63.             COLOR GREEN %4 BLUE %5  { Increase GREEN step 1, decrease BLUE Step 1 }
  64.         END_TEXTURE
  65.     END_OBJECT
  66. END_SKELETON:
  67.